dim doc
set doc = application.ActiveDocument
if doc.LayerCount=250 then
else
	Application.ExecuteCommand("Layer Setup")
	LayersSetupDlg.MaxLayers.Click()
	IncreaseMaximumLayerNumberDlg.Ok.Click()
	LayersSetupDlg.EnableDisable.Click()
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(1, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(2, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(3, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(4, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(5, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(6, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(46, 2, 1)
	EnableDisableLayersDlg.EnableDisableLayers.SetFieldCheck(47, 2, 1)
	EnableDisableLayersDlg.Ok.Click()
	LayersSetupDlg.Ok.Click()
end if
